Public Class ImportDaz3D

    Private Const MustSelectFile As String = "You must select a file to import"

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectHistoryFile.Click

        SelectHistoryFileDialog.ShowDialog()
        fileLocation.Text = SelectHistoryFileDialog.FileName

    End Sub

    Private Sub ImportHistory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImportHistory.Click

        If fileLocation.Text.Trim.Length > 0 Then
            Dim i As New Daz3DImporter
            Try
                Cursor = Cursors.WaitCursor
                i.Import(fileLocation.Text.Trim)
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                Cursor = Cursors.Default
            End Try
        Else
            MsgBox(MustSelectFile)
        End If

    End Sub

End Class